home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / ExtensionInfo / ExtensionInfo.dopus next >
Text File  |  1995-03-25  |  3KB  |  68 lines
  1. /****************************************************************************/
  2. /* File   :ExtensionInfo.dopus                                              */
  3. /* für Prg:DirectoryOpus                                                    */
  4. /* Version:1.2                                                              */
  5. /* Autor  :Jörg Pietsch                                                     */
  6. /* Datum  :23 Mär 1995                                                      */
  7. /* Beschreibung:                                                            */
  8. /* Informationen über Dateiendungen vom vorher angeklickten File.           */
  9. /****************************************************************************/
  10. OPTIONS RESULTS               /* Rückgabewerte in Variable RESULT anfordern */
  11. status 3        ; aktiv=result   /* Herausfinden, welches Fenster aktiv ist */
  12. status 7 aktiv  ; seldat=result /* Anzahl der selektierten Dateien einlesen */
  13. getselectedfiles; nliste=result    /* alle selektierten Dateinamen einlesen */
  14.  
  15. IF nliste="RESULT" THEN EXIT                /* Bei keiner Auswahl abbrechen */
  16. IF ~EXISTS("S:ExtensionInfo.txt") THEN
  17.   DO
  18.    REQUEST "Kann die Datei ExtensionInfo.txt nicht finden!"
  19.    EXIT
  20.   END
  21.  
  22. ADDRESS COMMAND "COPY >NIL: S:ExtensionInfo.txt TO T:"
  23.  
  24. /* ------------------------------------------------------------------------ */
  25. /* Files die keine Extension haben abwählen                                 */
  26. /* ------------------------------------------------------------------------ */
  27.  
  28. DO NR=1 TO seldat      /* Vorgang für alle selektierten Dateien wiederholen */
  29.   File=SUBWORD(nliste,NR,1)               /* Dateinamen aus der Liste holen */
  30.   PT=LASTPOS(".",File)            /* Position des Punktes von hinten suchen */
  31.   IF PT=0 THEN                     /* überprüfe, ob File eine Extension hat */
  32.     DO
  33.      SelectFile File 0 1                                  /* Datei abwählen */
  34.     END
  35. END
  36.  
  37. /* ------------------------------------------------------------------------ */
  38. /* Files mit Extension nach Begriff durchsuchen                             */
  39. /* ------------------------------------------------------------------------ */
  40.  
  41. status 7 aktiv  ; seldat=result /* Anzahl der selektierten Dateien einlesen */
  42. getselectedfiles; nliste=result    /* alle selektierten Dateinamen einlesen */
  43.  
  44. DO NR=1 TO seldat      /* Vorgang für alle selektierten Dateien wiederholen */
  45.   JA=0
  46.   File=SUBWORD(nliste,NR,1)               /* Dateinamen aus der Liste holen */
  47.   LP=LASTPOS(".",File)            /* Position des Punktes von hinten suchen */
  48.   FL=LENGTH(File)                                    /* Filelänge ermitteln */
  49.   Ext1=UPPER(RIGHT(File,FL-LP+1))                    /* Extension ermitteln */
  50.   OPEN(Z,"T:ExtensionInfo.txt","R")                     /* Zum Lesen Öffnen */
  51.    DO WHILE ~EOF(Z)     /* Datei ExtensionInfo.txt nach Begriff durchsuchen */
  52.      Linie=READLN(Z)
  53.      Ext2=UPPER(WORD(Linie,1))
  54.      IF Ext2 = Ext1 THEN
  55.        DO
  56.         REQUEST Linie;JA=1
  57.        END
  58.    END
  59.    IF JA=0 THEN
  60.      DO
  61.       REQUEST "Sorry, aber für "||Ext1||" existiert keine Erklärung!"
  62.      END
  63.    CLOSE(Z)
  64.    SelectFile File 0 1                                    /* Datei abwählen */
  65. END
  66. ADDRESS COMMAND "DELETE >NIL: T:ExtensionInfo.txt"
  67. EXIT
  68.